home *** CD-ROM | disk | FTP | other *** search
/ Flight Simulator Collections / Flight Simulator Collections.iso / menu / menu.bas < prev    next >
Encoding:
BASIC Source File  |  1995-09-07  |  329 b   |  12 lines
  1. cls
  2.  
  3. RESTART:
  4. SHELL "FLIGHT.COM"
  5.  
  6. FLTMENU:
  7.  A$=INKEY$
  8.     IF A$=CHR$(49) THEN SHELL "LIST GAMES.TXT":GOTO RESTART
  9.     IF A$=CHR$(50) THEN SHELL "CD\PHOTOS":SHELL "SVGA/a":SHELL "CD\MENU":GOTO RESTART
  10.     IF A$=CHR$(51) THEN SHELL "LIST FILES.BBS":GOTO RESTART
  11.     IF A$=CHR$(27) THEN CLS:SHELL "CD\":END
  12. GOTO FLTMENU: